خوارزميات بسيطة مكتوبه بلغة 
++ ¢ 


يشير حيده فارع محمد العيسي 


proceder Add( file , newRecord , n): 


FOLD ( KEY (newRecord) ) ; 


K 
R = K mod n; 


Read( file , Buffer , R); 
While (Valid (file)) Do Begin: 
R = (R+1) mod n; 
Read( file , Buffer , R); 
END; 
Write( file , Buffer , R 


الخوارزمية الثانية :خوارزمية البحت(القراءة6.2 كدعم( 


Logical function Read(file , Buffer ,Key, n): 
K=FOLD ( Key ); 
R = K mod n; 


Read( file , Buffer , R); 
While ( Valid(file) ) Do Begin: 

R = (R+1) mod n; 

Read(file , Buffer , R); 

END; 

If( KEY( Buffer ) = Key ) Then Read = True; 
Else Read = False ; 


Delete 6.3قذحll| خوارزمية‎ : 


کود 

Logical function Del (file , Buffer ,Key, n): 
K=FOLD ( Key ); 

R = K mod n; 


Read( file , Buffer , R); 
While ( Valid(file) AND KEY (Buffer) # Key ) Do Begi: 
R = (R+1) mod n; 

Read( file , Buffer , R); 

END; 


Key ) Then Begin: 


If( KEY( Buffer ) = 
Remove ( Buffer ); 
Update ( Buffer ); 


True; 


Else Del= False ; 


الخوارزمية الأولى : خوارزمية الإضافة6.4 كك 


كود 
proceder Add( file , newRecord , n):‏ 


K = FOLD ( KEY (newRecord) ) ; 
R = K mod n; 


D = (K mod j) + 1; 


DO Begin 
Read( file , Buffer , R); 

IF Valid(file) And Not AB (Buffer) Then 
R = (R+D) mod n; 


END Until Not Valid(file) OR AB (Buffer) ; 


Write( file , Buffer , R); 


ة اليحت(القراءة5 .6 كaعم(‏ 


كود 
Logical function Read(file , Buffer ,Key, n):‏ 


K = FOLD ( KEY (newRecord) ) ; 


R = K mod n; 


D = (K mod j) + 1; 


Read( file , Buffer , R); 


While (Valid (file) AND KEY (Buffer) # Key) Do Begin: 


R = (R+D) mod n; 


Read( file , Buffer , R); 


END; 


IF KEY (Buffer) = Key And Not AB (Buffer) Then 


Read = True; 


الخوارزمية الثالثة : خوارزمية الحذق6.6 Delete‏ 


كود 
Logical function Del(file , Buffer ,Key, n):‏ 


K = FOLD ( KEY (newRecord) ) ; 
R = K mod n; 


D = (K mod j) + 1; 


Read( file , Buffer , R); 


While (Valid (file) AND KEY (Buffer) # Key) Do Begin: 
R = (R+D) mod n; 
Read( file , Buffer , R); 


END; 


If Valid(file) Then Begi: 


Remove ( Buffer ); 


Update ( Buffer ) ; 


Del = True; 


END; 


Else Del= False ; 
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